function [boolean] = IA_Relation_Proper_Subset(IA_Relation1, IA_Relation2)
%IA_Relation_Proper_Subset Summary of this function goes here
%   Detailed explanation goes here

equal = IA_Relation_Is_Equal(IA_Relation1, IA_Relation2);

if ~equal
  boolean = IA_Relation_Is_Equal(IA_Relation2,...
    IA_Relation_Union(IA_Relation1, IA_Relation2));
else
  boolean = 0;
end

% equal = 1;
% 
% for i = 1:2
%   for j = 1:7
%     if (IA_Relation1.set(i, j) > 0) && (IA_Relation2.set(i, j) <= 0)
%       boolean = 0;
%       return;
%     end
%     
%     if (IA_Relation1.set(i, j) ~= IA_Relation2.set(i, j))
%       equal = 0;
%     end
%   end
% end
% 
% boolean = ~equal;
end